home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr11 / powerb5.zip / SPECCHAR.TXT < prev    next >
Text File  |  1993-06-01  |  1KB  |  47 lines

  1. Sub Main
  2. Begin Dialog UserDialog 325, 290
  3.   Text 10, 6, 144, 12, "Special Characters"
  4.   PushButton 10, 24, 210, 21,   "E&m Dash"
  5.   PushButton 10, 47, 210, 21,   "E&n Dash"
  6.   PushButton 10, 70, 210, 21,   "&Open Double Quote"
  7.   PushButton 10, 94, 210, 21,   "&Close Double Quote"
  8.   PushButton 10, 118, 210, 21, "Open &Single Quote"
  9.   PushButton 10, 142, 210, 21, "&Apostrophe"
  10.   PushButton 10, 166, 210, 21, "Co&pyright"
  11.   PushButton 10, 190, 210, 21, "&Registered Trademark"
  12.   PushButton 10, 214, 210, 21, "One &Fourth"
  13.   PushButton 10, 238, 210, 21, "One &Half"
  14.   PushButton 10, 262, 210, 21, "Three &Quarters"
  15.   CancelButton 230, 3, 88, 21
  16. End Dialog
  17. Dim Characters As UserDialog
  18. On Error Goto Goodbye
  19. ChoiceMade = Dialog(Characters)
  20. Select Case ChoiceMade
  21.    Case 1
  22.     Insert Chr$(150)
  23.    Case 2
  24.     Insert Chr$(151)
  25.    Case 3
  26.     Insert Chr$(147)
  27.    Case 4
  28.     Insert Chr$(148)
  29.    Case 5
  30.     Insert Chr$(145)
  31.    Case 6
  32.     Insert Chr$(146)
  33.   Case 7
  34.     Insert Chr$(169)
  35.   Case 8
  36.     Insert Chr$(174)
  37.   Case 9
  38.     Insert Chr$(188)
  39.   Case 10
  40.     Insert Chr$(189)
  41.   Case 11
  42.     Insert Chr$(190)
  43.   Case Else
  44.   End Select
  45. GoodBye:
  46. End Sub
  47.